home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 September / 64er_Magazin_88-09_1988_Markt__Technik_de_Side_A.d64 / n berechnen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  389b  |  22 lines
  1. 0 a$(0)="elite"
  2. 1 a$(1)="proportional"
  3. 2 a$(2)="schmal"
  4. 3 a$(3)="fett"
  5. 4 a$(4)="doppel"
  6. 5 a$(5)="breit"
  7. 6 a$(6)="kursiv"
  8. 7 a$(7)="unterstreichen"
  9. 8 :
  10. 10 n = 0
  11. 12 :
  12. 20 for i = 0 to 7
  13. 30 : print a$(i);" einschalten <j/n>"
  14. 40 : poke 198,0 : wait 198,1 : get e$
  15. 50 : if e$ = "j" then n = n + 2^i
  16. 70 next i
  17. 80 print " n =";n
  18. 100 open 1,4,1
  19. 110 print#1,chr$(27);"!";chr$(n);
  20. 120 print#1," test 1234 "
  21. 130 close 1
  22.